home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 5: The Fifth Dimension / 17 Bit - The Fifth Dimension (1995)(17 Bit Software)[!].iso / files / 3414a.dms / 3414a.adf / 3.0bUpdate / Macros.LHA / FontAnalyzerV2.rexx < prev    next >
OS/2 REXX Batch file  |  1994-09-20  |  3KB  |  52 lines
  1. /* $VER: FontAnalyzerV2.rexx 1.0 (20.9.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6. TRACE OFF
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11.  
  12. ADDRESS 'PAGESTREAM'
  13.  
  14. ;GIVE INSTRUCTIONS
  15. allocarexxrequester '"Analyze PageStream2 FontList File"' 592 111
  16.     reqhandle=result
  17. addarexxgadget reqhandle EXIT 12 94 70 label "_Ok"
  18.     Okhandle=result
  19. addarexxgadget reqhandle EXIT 510 94 70 label "_Cancel"
  20.     Cancelhandle=result
  21. addarexxgadget reqhandle TEXT 8 10 576 border none string "'This macro is used to ensure PageStream3 can recognize the fonts used'"
  22. addarexxgadget reqhandle TEXT 8 20 576 border none string "'in your PageStream 2 documents. It will open a file requester for you'"
  23. addarexxgadget reqhandle TEXT 8 30 576 border none string "'to select your PageStream2 FONTLISTv2 file. The macro will run the'"
  24. addarexxgadget reqhandle TEXT 8 40 576 border none string "'FontListv2Analyzer utility included with PageStream3 and will append'"
  25. addarexxgadget reqhandle TEXT 8 50 576 border none string "'the names of your fonts to the SoftLogik:Filters/PageStream2.fontlist'"
  26. addarexxgadget reqhandle TEXT 8 60 576 border none string "'file. Your FONTLISTv2 file will be in your PageStream2 PSFonts drawer,'"
  27. addarexxgadget reqhandle TEXT 8 70 576 border none string "'or wherever you set the path for fonts with the Set/Save Paths command.'"
  28. doarexxrequester reqhandle
  29.  
  30. action=result
  31. freearexxrequester reqhandle
  32.  
  33. ;ANALYZE FONTLIST
  34. if action=okhandle then do
  35.     getfile TITLE '"Select FONTLISTv2 File"' load FILE 'FONTLISTv2' POSBUTTON 'Ok'
  36.     if rc=0 then do
  37.         'lockinterface true'
  38.         path=result
  39.         address command 'PageStream3:FontListv2Analyzer 'path
  40.         allocarexxrequester '"Done!"' 528 81
  41.             reqhandle=result
  42.         addarexxgadget reqhandle EXIT 446 64 70 label "_Exit"
  43.         addarexxgadget reqhandle TEXT 8 10 512 border none string "'Your PageStream2 FONTLISTv2 file has been analyzed, and the'"
  44.         addarexxgadget reqhandle TEXT 8 20 512 border none string "'list of your fonts has been appended to the SoftLogik:Filters/'"
  45.         addarexxgadget reqhandle TEXT 8 30 512 border none string "'PageStream2.fontlist file. You are now ready to open your'"
  46.         addarexxgadget reqhandle TEXT 8 40 512 border none string "'version 2 documents in PageStream 3.0.'"
  47.         doarexxrequester reqhandle
  48.         freearexxrequester reqhandle
  49.         'lockinterface false'
  50.     end
  51. end
  52.